5 L=1 7 X=RND(-TI) 10 DIMP$(15),FZ(15),A$(6),GA$(4),SG(15,9) 20 LU$="" 100 d3 d S 103 d3 START 105 POKE53281,0:PRINT"[154]":SP=SP+1:IFSP=10THENSP=0 110 d3 FRAGE 120 d3 PUNKTE 130 d3 CONFIG 140 d3 JOKER 1000 D$="LEVEL"+STR$(L) 1005 F=INT(FZ(L)*RND(1))+1 1006 FORI=0TO9:IFSG(L,I)=FTHEN1005 1007 NEXTI 1008 SG(L,SP)=F 1009 D=INT((F-1)/20):F=F-D*20 1010 DD$=D$+"F"+STR$(D)+",S,R" 1020 DE$=D$+"A"+STR$(D)+",S,R" 1040 OPEN2,8,2,DD$ 1050 IFF>1THENFORI=1TO(F-1)*2:INPUT#2,A$:NEXT 1060 INPUT#2,F$(1):INPUT#2,F$(2):CLOSE2 1065 IFF$(2)="[255]"THENF$(2)=" " 1070 X$=LU$+"" 1080 PRINT"[159]"LEFT$(X$,20-LEN(F$(1))/2);F$(1) 1085 PRINT""; 1090 IFLEN(F$(2))<37THENPRINTLEFT$(X$,20-LEN(F$(2))/2);F$(2) 1100 IFLEN(F$(2))>36THENPRINT""LEFT$(F$(2),36) 1110 OPEN2,8,2,DE$ 1120 IFF>1THENFORI=1TO(F-1)*6:INPUT#2,A$:NEXT 1130 FORI=1TO6:INPUT#2,A$(I):NEXT:CLOSE2 1140 IFA$(5)="A"THENA=1 1150 IFA$(5)="B"THENA=2 1160 IFA$(5)="C"THENA=3 1170 IFA$(5)="D"THENA=4 1180 FORI=1TO4:GA$(I)="":J1(I)=0:NEXT 1185 IFA$(6)="R"THENFORI=1TO4:GA$(I)=A$(I):NEXT:RA=A:GOTO1240 1190 FORI=1TO4 1200 X=INT(4*RND(1))+1 1210 IFGA$(X)<>""THEN1200 1220 GA$(X)=A$(I):IFA=ITHENRA=X 1230 NEXTI 1240 PRINT""; 1250 GA$(1)="[158]A:[159]"+GA$(1) 1260 GA$(2)="[158]B:[159]"+GA$(2) 1270 GA$(3)="[158]C:[159]"+GA$(3) 1280 GA$(4)="[158]D:[159]"+GA$(4) 1290 PRINT"";LEFT$(GA$(1),20) 1291 FORI=1TO1200:NEXT 1292 PRINT""; 1293 PRINT"";LEFT$(GA$(2),20) 1295 PRINT""; 1296 FORI=1TO1200:NEXT 1300 PRINT"";LEFT$(GA$(3),20) 1310 PRINT""; 1315 FORI=1TO1200:NEXT 1320 PRINT"";LEFT$(GA$(4),20)"[145][145][145][145][145][145][145][145][145]" 1500 A$="":GETA$:IFA$<>"A"ANDA$<>"B"ANDA$<>"C"ANDA$<>"D"ANDA$<>"E"THEN1502 1501 GOTO1510 1502 IFA$<>""THENIFASC(A$)=>133ANDASC(A$)<=136THEN1510 1503 IFA$<>"Z"ANDA$<>"Y"ANDA$<>"X"ANDA$<>"_"ANDA$<>"J"THEN1500 1505 IFA$="_"THEN d3 ZOOM 1506 IFA$="_"THEN 1500 1510 IFA$="A"ORASC(A$)=133THENAN=1 1520 IFA$="B"ORASC(A$)=134THENAN=2 1530 IFA$="C"ORASC(A$)=135THENAN=3 1540 IFA$="D"ORASC(A$)=136THENAN=4 1541 IFA$="J"THEN TJ=1:d3 TELEFON 1542 IFA$="J"THEN1500 1545 IFA$="E"THENd3 AUSSTIEG 1546 IFA$="X"THEN d3 FIFTYFIFTY 1547 IFA$="X"THEN1500 1548 IFA$="Y"THEN TJ=0:d3 TELEFON 1549 IFA$="Y"THEN1500 1550 IFA$="Z"THEN d3 PUBLIKUM 1551 IFA$="Z"THEN1500 1552 IFA$="E"THEN3000 1553 d3 TIPP 1555 IFAN<>RATHENd3 FALSCH 1556 IFAN<>RATHEN3000 1560 d3 RICHTIG 1561 L=L+1:IFL=16THENd3 AUSSTIEG 1570 PRINT"[147]" 1580 d3 FRAGE 1590 d3 PUNKTE 1595 d3 JOKER 1600 GOTO1000 2000 d1 TIPP 2010 GA$(AN)=""+MID$(GA$(AN),2,2)+MID$(GA$(AN),5,40):GA$(AN)=LEFT$(GA$(AN),19) 2020 d3 ANTWORTEN 2030 FORI=1TO999:NEXT 2040 d4 2050 d1 FALSCH 2060 H$=GA$(RA) 2070 I$=""+MID$(GA$(RA),2,2)+MID$(GA$(RA),5,40) 2072 FORI=1TO6 2075 GA$(RA)=H$ 2080 d3 ANTWORTEN 2090 GA$(RA)=I$:GA$(RA)=LEFT$(GA$(RA),19) 2100 d3 ANTWORTEN 2110 NEXTI 2120 PRINT"[147]"LU$"GAME OVER" 2130 PRINT""LU$"SIE HABEN" 2140 IFL<16THENP$="16.000 EURO":IFMO=1THENL=10 2150 IFL<11THENP$="500 EURO" 2160 IFL<6THENP$="0[160]EURO" 2170 PRINT""LU$;P$ 2180 PRINT""LU$"GEWONNEN " 2190 d4 2200 d3 ANTWORTEN 2205 FORJ=1TO120:NEXTJ 2210 NEXTI 2220 d4 2250 d1 RICHTIG 2260 H$=GA$(RA) 2270 I$=""+MID$(GA$(RA),2,2)+MID$(GA$(RA),4,40) 2272 FORI=1TO4 2275 GA$(RA)=H$:GA$(RA)=LEFT$(GA$(RA),19) 2280 d3 ANTWORTEN 2285 REM FORJ=1TO10:NEXTJ 2290 GA$(RA)=I$:GA$(RA)=LEFT$(GA$(RA),19) 2300 d3 ANTWORTEN 2305 REM FORJ=1TO10:NEXTJ 2310 NEXTI 2320 d4 2410 d1 AUSSTIEG 2420 PRINT"[147][159]"LU$"GAME OVER" 2430 PRINT""LU$"SIE HABEN" 2440 IFL=1THENP$="0 EURO" 2450 IFL>1THENP$=RIGHT$(P$(L-1),LEN(P$(L-1))-10) 2455 IFL>1ANDRIGHT$(P$,1)=" "THENP$=LEFT$(P$,LEN(P$)-1):GOTO2455 2460 IFL>1THENP$=P$+" EURO" 2470 PRINT""LU$;P$ 2480 PRINT""LU$"GEWONNEN " 2483 IFL=16THENPRINT"SIE SIND MILLIONAER !!!!!":GOTO 3000 2485 IFL<16THENPRINT"ES WAERE "GA$(RA):PRINT"[159]RICHTIG GEWESEN." 2490 d4 3000 REM NOCHMAL 3010 PRINT"NOCH EIN SPIEL (J/N) ?":NO=1 3020 GETAN$:IFAN$="J"THEN L=1:J1=0:J2=0:J3=0:J4=0:GOTO103 3030 IFAN$="J"THEN105 3040 IFAN$="N"THENPRINT"UND TSCHUESS...":END 3050 GOTO3020 4000 d1 ZOOM 4010 PRINT"[147][159]" 4011 PRINT" ZOOM" 4012 PRINT" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]" 4020 PRINT" "F$(1) 4030 PRINT" "F$(2) 4040 PRINT" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]" 4050 FORI=1TO4 4060 PRINT" ";GA$(I) 4070 PRINT" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]" 4080 NEXTI 4090 PRINT"DRUECKEN SIE '_' ZUM WEITERSPIELEN !" 4100 GETAN$:IFAN$<>"_"THEN4100 4110 PRINT"[147]":A$="_" 4120 d3 FRAGE 4130 d3 ANTWORTEN 4140 d3 PUNKTE 4150 d3 JOKER 4160 d4 5000 d1 START 5004 POKE53281,0 5010 PRINT"[147][158]" 5011 PRINT"[159] DTL-SOFT PRAESENTIERT:" 5012 PRINT" EINES DER LETZTEN C-64-SPIELE :" 5020 PRINT"[158] [201] [213] [213][195][195][195] [213][195][195][201] [201] [213] [178] [213][195][195][201] [178][195][195][201]" 5030 PRINT" [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194]" 5040 PRINT" [194] [194] [194] [171][195][195] [171][195][195][203] [194] [194] [194] [194] [171][195][195][203] [194] [194]" 5050 PRINT" [194] [194] [194] [194] [194][205] [194] [194] [194] [194] [194][205] [194] [194]" 5060 PRINT" [202][195][177][195][203] [202][195][195][195] [177] [195] [202][195][177][195][203] [177] [177] [195] [177][195][195][203]" 5070 PRINT 5075 PRINT" [215] [215]" 5080 PRINT" [213][195][178][195][201] [178] [178] [178] [178] [213][195][195][201] [178] [178] [213][195][195][201] [213][195][195][201]" 5090 PRINT" [194] [194] [194] [194] [194] [194] [194] [194] [194] [194][205] [194] [194] [194] [194] [194]" 5100 PRINT" [194] [194] [194] [194] [194] [194] [194] [194] [194] [194][167] [194] [171][195][195][179] [171][195][195][203]" 5110 PRINT" [194] [194] [194] [194] [194] [194] [194] [194] [194] [205][194] [194] [194] [194][205] " 5120 PRINT" [177] [177] [177] [202][195][195] [202][195][195] [177] [202][195][195][203] [177] [177] [177] [177] [177] [195] " 5130 PRINT 5140 PRINT" [159]VON DADDLERTL (2001)" 5145 PRINT" UPDATE 10.05.2009 V1.02" 5150 PRINT 5160 PRINT"[150] S - START A - ANLEITUNG" 5165 PRINT 5170 PRINT" M - MODUS: "; 5172 IF MO=0 THEN PRINT"STANDARD " 5174 IF MO=1 THEN PRINT"MIT ZUSATZJOKER" 5180 GETAN$:IFAN$="S"THENPRINT"[147]":d4 5185 IF AN$="M" THEN MO=-MO+1:PRINT"[145][145]": GOTO 5170 5190 IFAN$<>"A"THEN5180 5200 PRINT"[147][155]ANLEITUNG ZU 'WER WIRD MILLIONAER'" 5210 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 5220 PRINT 5222 PRINT" DIE FOLGENDE ANLEITUNG GILT FUER DEN" 5224 PRINT" STANDARDMODUS. DER MODUS MIT ZUSATZ-" 5226 PRINT" JOKER WIRD AM ENDE DER ANLEITUNG" 5227 PRINT" ERKLAERT." 5228 PRINT 5230 PRINT"ZIEL D. SPIELS IST ES, 15 FRAGEN RICH-" 5240 PRINT" TIG ZU BEANTWORTEN UND 1 MIO. EURO ZU" 5250 PRINT" GEWINNEN - ZUMINDEST THEORETISCH." 5260 PRINT" DA MAN NICHT AUF JEDE FRAGE EINE ANT-" 5270 PRINT" WORT WISSEN KANN, HELFEN EINEM DREI" 5280 PRINT" JOKER, DIE RICHTIGE LOESUNG ZU FINDEN." 5290 PRINT" GEANTWORTET WIRD, INDEM MAN DIE TASTE" 5300 PRINT" A,B,C OD. D (BZW. F1,F3,F5,F7) ENTSPR." 5310 PRINT" DER VERMUTETEN ANTWORT DRUECKT." 5320 PRINT" NACHDEM MAN SEINEN TIPP ABGEGEBEN HAT," 5330 PRINT" WIRD DURCH MEHRMALIGES AUFBLINKEN DIE" 5340 PRINT" RICHTIGE LOESUNG ANGEZEIGT." 5345 d3 TASTE 5350 PRINT" WAR DER TIPP RICHTIG, KOMMT MAN EINE" 5360 PRINT" STUFE HOEHER U. BEKOMMT EINE NEUE," 5370 PRINT" SCHWIERIGERE FRAGE GESTELLT." 5375 PRINT" AM RECHTEN RAND SIEHT MAN DEN BETRAG," 5380 PRINT" DEN MAN GEWONNEN HAT, WENN MAN JETZT" 5390 PRINT" AUSSTEIGEN WUERDE." 5400 PRINT"[155] HAT MAN DIE MILLION ERREICHT, IST MAN" 5410 PRINT" MILLIONAER (THEORETISCH) UND SIEGER" 5420 PRINT" DES SPIELS." 5430 PRINT" HAT MAN SICH JEDOCH GEIRRT, IST DAS" 5440 PRINT" SPIEL GELAUFEN UND MAN FAELLT AUF DIE" 5450 PRINT" NIEDRIGERE, GELBE GEWINNSTUFE, ALSO" 5460 PRINT" AUF 500 BZW. 16.000 EURO. HAT MAN" 5470 PRINT" WENIGER ALS DM 500 ERREICHT, GEH'T" 5480 PRINT" MAN LEIDER LEER AUS (0 EURO)." 5490 PRINT" IST MAN SICH NICHT SICHER, WELCHE ANT-" 5500 PRINT" WORT DIE RICHTIGE IST, KOENNEN EINEM" 5510 PRINT" FOLGENDE DREI JOKER HELFEN, DIE MIT" 5520 PRINT" DEN TASTEN X, Y UND Z EINGESETZT WER-" 5530 PRINT" DEN UND JEWEILS NUR EINMAL VERWENDBAR" 5540 PRINT" SIND (PRO SPIEL):" 5550 d3 TASTE 5560 PRINT" 50:50 (TASTE X)" 5570 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 5580 PRINT" SETZT MAN DEN 50:50-JOKER EIN, WERDEN" 5590 PRINT" ZWEI FALSCHE ANTWORTEN GELOESCHT, SO" 5600 PRINT" DASS MAN NUR NOCH ZWEI ANTWORTMOEG-" 5610 PRINT" LICHKEITEN ZUR AUSWAHL HAT. DIES" 5620 PRINT" ERLEICHTERT DIE ENTSCHEIDUNG MEIST" 5630 PRINT" ERHEBLICH." 5640 PRINT 5650 PRINT" TELEFON (TASTE Y)" 5660 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 5670 PRINT" BEIM TELEFON-JOKER HAT MAN ZWEI MOEG-" 5680 PRINT" LICHKEITEN, DIE DURCH DRUECKEN DER" 5690 PRINT" TASTE 1 ODER 2 ANGEWENDET WERDEN:" 5700 PRINT" 1) MAN BEFRAGT JEMANDEN, DER IN DER" 5710 PRINT" NAEHE IST NACH DER ANTWORT ODER" 5720 PRINT" RUFT JEMANDEN AN. DIE ZEIT FUER" 5730 PRINT" DIESE AKTION IST AUF 30 SEKUNDEN" 5740 PRINT" BESCHRAENKT." 5745 d3 TASTE 5750 PRINT" 2) MAN LAESST DEN TELEFONKANDIDAT VOM" 5760 PRINT" COMPUTER SIMULIEREN. DIESER WEISS" 5770 PRINT" DIE ANTWORT MIT EINER GEWISSEN" 5780 PRINT" SICHERHEIT ODER ER WEISS SIE NICHT." 5790 PRINT" ACHTUNG: SELBST WENN SICH DER SIMU-" 5800 PRINT" LIERTE TELEFONKANDIDAT 100%-IG" 5810 PRINT" SICHER IST, KANN ER EVENTUELL EINEN" 5820 PRINT" FALSCHEN TIPP ABGEBEN." 5830 PRINT" DER TELEFONJOKER KANN EINEM EINEN AN-" 5840 PRINT" HALTSPUNKT GEBEN; MANN WEISS JEDOCH" 5850 PRINT" NICHT, OB D. TELEFONKANDIDAT RECHT HAT." 5880 PRINT" PUBLIKUM (TASTE Z)" 5890 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 5900 PRINT" DER PUBLIKUMSJOKER SIMULIERT EIN 100-" 5910 PRINT" KOEPFIGES PUBLIKUM. JEDER 'ZUSCHAUER'" 5920 PRINT" GIBT DABEI SEINEN TIPP AB. NACHDEM" 5930 PRINT" DIE SIMULATION ABGESCHLOSSEN IST, ER-" 5940 PRINT" SCHEINT AUF DEM BILDSCHIRM EIN DIA-" 5950 PRINT" GRAMM, DAS ANZEIGT, WIE OFT (IN %)" 5960 PRINT" WELCHE ANTWORT GEGEBEN WURDE." 5970 d3 TASTE 5980 PRINT" IST BEI EINER ANTWORT EINE DEUTLICHE" 5990 PRINT" MEHRHEIT ZU ERKENNEN, SO IST DIESE" 6000 PRINT" ANTWORT WAHRSCHEINLICH DIE RICHTIGE." 6010 PRINT" IST DIE MEHRHEIT JEDOCH ZU KNAPP," 6020 PRINT" SOLLTE MAN DAS ERGEBNIS MIT VORSICHT" 6030 PRINT" GENIESSEN." 6040 PRINT 6050 PRINT" ES KOENNEN AUCH MEHRERE JOKER BEI" 6060 PRINT" EINER FRAGE ZUR ABSICHERUNG VERWENDET" 6070 PRINT" WERDEN." 6080 PRINT 6090 PRINT" SIND ALLE JOKER VERBRAUCHT UND MAN" 6100 PRINT" WEISS EINE ANTWORT NICHT, SO SOLLTE" 6110 PRINT" MAN MIT DER TASTE E AUS DEM SPIEL AUS-" 6120 PRINT" STEIGEN, UM NICHT BEI EINER FALSCHANT-" 6130 PRINT" WORT AUF EINE NIEDRIGERE GEWINNSUMME" 6140 PRINT" ZURUECKZUFALLEN (ES SEI DENN, MAN IST" 6150 PRINT" RISIKOFREUDIG)." 6160 d3 TASTE 6170 PRINT" ZOOM-FUNKTION (TASTE _)" 6180 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 6190 PRINT" IST EINE FRAGE ODER ANTWORT AUFGRUND" 6200 PRINT" IHRER UEBERLAENGE NICHT VOLLSTAENDIG" 6210 PRINT" ZU SEHEN (KEIN FRAGEZEICHEN AM ENDE" 6220 PRINT" EINER FRAGE, FEHLENDE ODER ABGE-" 6230 PRINT" SCHNITTENE WOERTER ETC.), SO KANN MAN" 6240 PRINT" DIE ZOOM-FUNKTION VERWENDEN. DABEI" 6250 PRINT" VERSCHWINDET DER HAUPTBILDSCHIRM UND" 6260 PRINT" DIE FRAGE UND ANTWORTEN WERDEN IN" 6270 PRINT" VOLLER LAENGE AUF DEM BILDSCHIRM DAR-" 6280 PRINT" GESTELLT." 6290 PRINT" NACHDEM MAN DIE FRAGE UND ANTWORTEN" 6300 PRINT" GELESEN HAT, KEHRT MAN MIT DER TASTE _" 6310 PRINT" ZUM HAUPTBILDSCHIRM ZURUECK." 6320 d3 TASTE 6330 PRINT" ACHTUNG ! ES KOENNEN NUR ANTWORTEN GE-" 6340 PRINT" GEBEN WERDEN, JOKER EINGESETZT ODER" 6350 PRINT" DAS SPIEL BEENDET WERDEN, WENN MAN" 6360 PRINT" AUF DEM HAUPTBILDSCHIRM IST. AUS" 6370 PRINT" DIESEM GRUND MUSS MAN NEBENBILDSCHIRME" 6380 PRINT" (JOKER, ZOOM) MIT DER TASTE '_' VOR-" 6390 PRINT" HER VERLASSEN !" 6400 PRINT" AUSSERDEM SOLLTE MAN KEINE TASTE" 6405 PRINT" WIEDERHOLT DRUECKEN, IN DER VERMU-" 6410 PRINT" TUNG, DASS DER COMPUTER NICHT AUF" 6420 PRINT" EINEN TASTENDRUCK REAGIERT HAT -" 6430 PRINT" EINIGE BERECHNUNGEN, INSBESONDERE DER" 6440 PRINT" PUBLIKUMSJOKER NEHMEN EINIGE SEKUNDEN" 6450 PRINT" RECHENZEIT IN ANSPRUCH. DESHALB SOLLTE" 6460 PRINT" EIN TASTENDRUCK ERST WIEDERHOLT WERDEN" 6470 PRINT" WENN DER COMPUTER LAENGER ALS 10 SE-" 6480 PRINT" KUNDEN LANG KEINE REAKTION ZEIGT, UM" 6490 PRINT" FEHLFUNKTIONEN ZU VERMEIDEN !" 6500 d3 TASTE 6510 PRINT" HINWEISE UND TIPPS" 6520 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 6530 PRINT" - DAS SPIEL ENTHAELT 998 FRAGEN." 6540 PRINT" - FRAGEN KOENNEN SICH WAEHREND EINER" 6550 PRINT" SPIELESITZUNG FRUEHESTENS AB DEM" 6560 PRINT" 11. SPIEL WIEDERHOLEN. 6570 [153]" - DER TELEFONKANDIDAT UND DAS PUBLI-" 6580 [153]" KUM LIEGEN NICHT IMMER RICHTIG," 6590 [153]" IM ZWEIFELSFALLE MIT 50:50-JOKER" 6600 [153]" (FALLS NOCH VERFUEGBAR) ABSICHERN." 6610 [153]" - HAT MAN GENAU 500 ODER 16.000" 6620 [153]" EURO UND KEINE JOKER MEHR,SOLLTE" 6630 [153]" MAN TROTZDEM EINEN TIP ABGEBEN" 6640 [153]" DA MAN DIESEN BETRAG JA SICHER" 6650 [153]" HAT." 6660 [153]" - SOLLTE MAN EINMAL LEER AUSGEHEN:" 6670 [153]" MACHT NICHTS ! ES IST NUR EIN SPIEL," 6680 [153]" DAS MAN BELIEBIG OFT WIEDERHOLEN" 6690 [153]" KANN !" 6700 d3 TASTE 6710 [153]" MODUS MIT ZUSATZJOKER" 6720 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 6740 [153]" WAEHLT MAN DEN MODUS MIT ZUSATZJOKER" 6750 [153]" ERGEBEN SICH ZWEI KLEINE REGELAENDE-" 6760 [153]" RUNGEN:" 6770 [153] 6780 [153]" 1.) DIE SICHERHEITSSTUFE 16.000 EURO" 6790 [153]" ENTFAELLT, D.H. WENN MAN 16.000" 6800 [153]" EURO ERREICHT HAT UND DANN EINE" 6810 [153]" FALSCHE ANTWORT GIBT, GEWINNT MAN" 6820 [153]" NUR 500 EURO. 6825 PRINT 6830 PRINT" 2.) MAN ERHAELT EINEN ZUSATZJOKER" 6840 PRINT" (TASTE J): HIERBEI WIRD EIN PUBLI-" 6850 PRINT" KUMSKANDIDAT BEFRAGT, DER GLAUBT," 6860 PRINT" DIE RICHTIGE ANTWORT ZU WISSEN." 6870 PRINT" AUCH HIER GILT: SELBST WENN ER" 6880 PRINT" SICH 100%-IG SICHER IST, KANN DIE" 6890 PRINT" ANTWORT TROTZDEM FALSCH SEIN." 6900 PRINT:PRINT" [158]VIEL SPASS BEIM SPIELEN !" 6910 d3 TASTE 7999 GOTO103 8000 d1 TASTE 8010 PRINT:PRINT" ZUM FORTFAHREN TASTE DRUECKEN" 8020 GETAN$:IFAN$=""THEN8020 8025 PRINT"[147][155]" 8030 d4 8999 END 9000 d1 ANTWORTEN 9065 IFF$(2)="[255]"THENF$(2)=" " 9070 X$="" 9080 PRINT"[159]"LEFT$(X$,20-LEN(F$(1))/2);F$(1) 9085 PRINT""; 9090 IFLEN(F$(2))<37THENPRINTLEFT$(X$,20-LEN(F$(2))/2);F$(2) 9100 IFLEN(F$(2))>36THENPRINT""LEFT$(F$(2),36) 9240 PRINT""; 9290 PRINT"";LEFT$(GA$(1),20) 9292 PRINT""; 9293 PRINT"";LEFT$(GA$(2),20) 9295 PRINT""; 9300 PRINT"";LEFT$(GA$(3),20) 9310 PRINT""; 9320 PRINT"";LEFT$(GA$(4),20)"[145][145][145][145][145][145][145][145][145]" 9390 d4 9500 d1 NEU 9510 FORI=1TO4:J1(I)=0:NEXT 9520 J1=0:J2=0:J3=0 9530 L=1:PRINT"[147]" 9590 d4 9999 END 10000 d1 d S 10005 dz 10010 db2,$E000+129*8:REM 10020 @........ 10030 @........ 10040 @........ 10050 @........ 10060 @.......B 10070 @......BB 10080 @.....BB. 10090 @BBBBBB.. 10110 db2,$E000+130*8:REM 10120 @BBBBBB.. 10130 @.....BB. 10140 @......BB 10150 @.......B 10160 @........ 10170 @........ 10180 @........ 10190 @........ 10210 db2,$E000+131*8:REM 10220 @...BB... 10230 @..BB.... 10240 @.BB..... 10250 @BB...... 10260 @B....... 10270 @........ 10280 @........ 10290 @........ 10310 db2,$E000+151*8:REM 10320 @........ 10330 @........ 10340 @........ 10350 @B....... 10360 @BB...... 10370 @.BB..... 10380 @..BB.... 10390 @...BB... 10410 db2,$E000+154*8:REM 10420 @........ 10430 @........ 10440 @........ 10450 @........ 10460 @.......B 10470 @......BB 10480 @.....BB. 10490 @....BB.. 10510 db2,$E000+134*8:REM 10520 @....BB.. 10530 @.....BB. 10540 @......BB 10550 @.......B 10560 @........ 10570 @........ 10580 @........ 10590 @........ 11010 db2,$E000+135*8:REM 11020 @........ 11030 @........ 11040 @........ 11050 @........ 11060 @B....... 11070 @BB...... 11080 @.BB..... 11090 @..BBBBBB 11110 db2,$E000+136*8:REM 11120 @..BBBBBB 11130 @.BB..... 11140 @BB...... 11150 @B....... 11160 @........ 11170 @........ 11180 @........ 11190 @........ 11210 db2,$E000+163*8:REM 11220 @...BB... 11230 @....BB.. 11240 @.....BB. 11250 @......BB 11260 @.......B 11270 @........ 11280 @........ 11290 @........ 11310 db2,$E000+138*8:REM 11320 @........ 11330 @........ 11340 @........ 11350 @.......B 11360 @......BB 11370 @.....BB. 11380 @....BB.. 11390 @...BB... 11410 db2,$E000+139*8:REM 11420 @........ 11430 @........ 11440 @........ 11450 @........ 11460 @B....... 11470 @BB...... 11480 @.BB..... 11490 @..BB.... 11510 db2,$E000+161*8:REM 11520 @..BB.... 11530 @.BB..... 11540 @BB...... 11550 @B....... 11560 @........ 11570 @........ 11580 @........ 11590 @........ 12010 db2,$E000+152*8:REM 12020 @......BB 12030 @.....BB. 12040 @....BB.. 12050 @BBBBB... 12060 @BBBBB... 12070 @....BB.. 12080 @.....BB. 12090 @......BB 12110 db2,$E000+164*8:REM 12120 @........ 12130 @........ 12140 @........ 12150 @........ 12160 @........ 12170 @........ 12180 @........ 12190 @.......B 12210 db2,$E000+165*8:REM 12220 @.......B 12230 @........ 12240 @........ 12250 @........ 12260 @........ 12270 @........ 12280 @........ 12290 @........ 12310 db2,$E000+144*8:REM 12320 @........ 12330 @........ 12340 @........ 12350 @...BBBBB 12360 @..BBBBBB 12370 @.BB..... 12380 @BB...... 12390 @B....... 12410 db2,$E000+145*8:REM 12420 @B....... 12430 @BB...... 12440 @.BB..... 12450 @..BBBBBB 12460 @...BBBBB 12470 @........ 12480 @........ 12490 @........ 12510 db2,$E000+132*8:REM 12520 @BB...... 12530 @.BB..... 12540 @..BB.... 12550 @...BBBBB 12560 @...BBBBB 12570 @..BB.... 12580 @.BB..... 12590 @BB...... 12610 db2,$E000+147*8:REM 12620 @........ 12630 @........ 12640 @........ 12650 @........ 12660 @........ 12670 @........ 12680 @........ 12690 @B....... 12710 db2,$E000+148*8:REM 12720 @B....... 12730 @........ 12740 @........ 12750 @........ 12760 @........ 12770 @........ 12780 @........ 12790 @........ 12810 db2,$E000+141*8:REM 12820 @........ 12830 @........ 12840 @........ 12850 @BBBBB... 12860 @BBBBBB.. 12870 @.....BB. 12880 @......BB 12890 @.......B 12910 db2,$E000+150*8:REM 12920 @.......B 12930 @......BB 12940 @.....BB. 12950 @BBBBBB.. 12960 @BBBBB... 12970 @........ 12980 @........ 12990 @........ 13000 db2,$E000+193*8:REM 13010 @........ 13020 @........ 13030 @.....BBB 13040 @...BBB.. 13050 @..BB.... 13060 @.BB.BBB. 13070 @BB..B... 13080 @B...B... 13100 db2,$E000+194*8:REM 13110 @B...BB.. 13120 @B.....B. 13130 @BB....B. 13140 @.BB.BB.. 13150 @..BB.... 13160 @...BBB.. 13170 @.....BBB 13180 @........ 13200 db2,$E000+195*8:REM 13210 @........ 13220 @BBBBBBBB 13230 @B......B 13240 @........ 13250 @........ 13260 @.B....BB 13270 @B.B.B.B. 13280 @B.B...B. 13300 db2,$E000+196*8:REM 13310 @B.B...BB 13320 @B.B..... 13330 @B.B.B... 13340 @.B....BB 13350 @........ 13360 @........ 13370 @B......B 13380 @BBBBBBBB 13400 db2,$E000+197*8:REM 13423 @........ 13424 @........ 13425 @BBB..... 13426 @..BBB... 13427 @....BB.. 13428 @B..B.BB. 13429 @..B.B.BB 13430 @..B.B..B 13500 db2,$E000+198*8:REM 13531 @..B.B..B 13532 @B.B.B..B 13533 @B.B.B.BB 13534 @...B.BB. 13535 @....BB.. 13536 @..BBB... 13537 @BBB..... 13538 @........ 14000 db2,$E000+199*8:REM 14023 @........ 14024 @........ 14025 @.....BBB 14026 @...BBB.. 14027 @..BB.... 14028 @.BB..... 14029 @BB...... 14030 @B....... 14100 db2,$E000+200*8:REM 14131 @B....... 14132 @B....... 14133 @BB.B...B 14134 @.BB.B.B. 14135 @..BB.B.. 14136 @...BBB.. 14137 @.....BBB 14138 @........ 14200 db2,$E000+201*8:REM 14223 @........ 14224 @BBBBBBBB 14225 @B..BBB.B 14226 @..B...B. 14227 @..B...B. 14228 @..B...B. 14229 @...B..B. 14230 @....B.B. 14300 db2,$E000+202*8:REM 14331 @....B.B. 14332 @....B.B. 14333 @...B..B. 14334 @B.B...B. 14335 @.BB...B. 14336 @..B...B. 14337 @B..BBB.B 14338 @BBBBBBBB 14400 db2,$E000+203*8:REM 14423 @........ 14424 @........ 14425 @BBB..... 14426 @..BBB... 14427 @....BB.. 14428 @.....BB. 14429 @......BB 14430 @.......B 14500 db2,$E000+204*8:REM 14531 @.......B 14532 @.......B 14533 @......BB 14534 @.....BB. 14535 @....BB.. 14536 @..BBB... 14537 @BBB..... 14538 @........ 15000 db2,$E000+205*8:REM 15023 @........ 15024 @........ 15025 @.....BBB 15026 @...BBBBB 15027 @..BB.B.. 15028 @.BB..B.. 15029 @BB....BB 15030 @B....B.. 15100 db2,$E000+206*8:REM 15131 @B...B... 15132 @B...B... 15133 @BB..B... 15134 @.BB.BBBB 15135 @..BB.... 15136 @...BBB.. 15137 @.....BBB 15138 @........ 15200 db2,$E000+207*8:REM 15223 @........ 15224 @BBBBBBBB 15225 @B......B 15226 @........ 15227 @B..BB..B 15228 @B.B..B.B 15229 @..B..B.. 15230 @B..BB..B 15300 db2,$E000+208*8:REM 15331 @.BB..BB. 15332 @.B....B. 15333 @.B....B. 15334 @BB....BB 15335 @.BBBBBB. 15336 @........ 15337 @B......B 15338 @BBBBBBBB 15400 db2,$E000+209*8:REM 15423 @........ 15424 @........ 15425 @BBB..... 15426 @BBBBB... 15427 @..B.BB.. 15428 @..B..BB. 15429 @BB....BB 15430 @..B....B 15500 db2,$E000+210*8:REM 15531 @...B...B 15532 @...B...B 15533 @...B..BB 15534 @BBBB.BB. 15535 @....BB.. 15536 @..BBB... 15537 @BBB..... 15538 @........ 16000 db2,$E000+211*8:REM 16020 @.BBBBBBB 16022 @.B.B.... 16023 @.B....B. 16024 @.B..B... 16025 @.BB....B 16026 @.B...B.. 16027 @.B.B.... 16028 @.B....B. 16100 db2,$E000+212*8:REM 16129 @.B..B... 16130 @.BB....B 16131 @.B...B.. 16132 @.B.B.... 16133 @.B....B. 16134 @.B..B... 16135 @.BB....B 16136 @.B...B.. 16200 db2,$E000+213*8:REM 16237 @.B.B.... 16238 @.B....BB 16239 @.B..BB.. 16240 @.BBB.... 16241 @.BBBBBBB 16242 @........ 16243 @........ 16244 @........ 16300 db2,$E000+214*8:REM 16320 @BBBBBBB. 16322 @B..B..B. 16323 @...B..B. 16324 @.B.B..B. 16325 @...B..B. 16326 @..BB..B. 16327 @B..B..B. 16328 @...B..B. 16400 db2,$E000+215*8:REM 16429 @.B.B..B. 16430 @...B..B. 16431 @..BB..B. 16432 @B..B..B. 16433 @...B..B. 16434 @.B.B..B. 16435 @...B..B. 16436 @..BB..B. 16500 db2,$E000+216*8:REM 16537 @BB....B. 16538 @......B. 16539 @......B. 16540 @......B. 16541 @BBBBBBB. 16542 @........ 16543 @........ 16544 @........ 17000 db2,$E000+240*8:REM 17037 @....B... 17038 @....B... 17039 @....B... 17040 @....B... 17041 @....B... 17042 @....B... 17043 @....B... 17044 @BBBBBBBB 17100 db2,$E000+255*8:REM 17137 @........ 17138 @........ 17139 @........ 17140 @........ 17141 @........ 17142 @........ 17143 @........ 17144 @BBBBBBBB 17200 db2,$E000+252*8:REM 17237 @....B... 17238 @....B... 17239 @....B... 17240 @....B... 17241 @....B... 17242 @....B... 17243 @....B... 17244 @....BBBB 17300 db2,$E000+236*8:REM 17337 @....B... 17338 @....B... 17339 @....B... 17340 @....B... 17341 @....B... 17342 @....B... 17343 @....B... 17344 @BBBBB... 17400 db2,$E000+241*8:REM 17437 @........ 17438 @........ 17439 @........ 17440 @........ 17441 @........ 17442 @........ 17443 @........ 17444 @....BBBB 17500 db2,$E000+251*8:REM 17537 @........ 17538 @........ 17539 @........ 17540 @........ 17541 @........ 17542 @........ 17543 @........ 17544 @BBBBB... 17600 db2,$E000+229*8:REM 17637 @........ 17638 @........ 17639 @........ 17640 @........ 17641 @........ 17642 @........ 17643 @BBBBBBBB 17644 @BBBBBBBB 17700 db2,$E000+244*8:REM 17737 @........ 17738 @........ 17739 @........ 17740 @........ 17741 @........ 17742 @BBBBBBBB 17743 @BBBBBBBB 17744 @BBBBBBBB 17800 db2,$E000+226*8:REM 17837 @........ 17838 @........ 17839 @........ 17840 @BBBBBBBB 17841 @BBBBBBBB 17842 @BBBBBBBB 17843 @BBBBBBBB 17844 @BBBBBBBB 17900 db2,$E000+245*8:REM 17937 @........ 17938 @BBBBBBBB 17939 @BBBBBBBB 17940 @BBBBBBBB 17941 @BBBBBBBB 17942 @BBBBBBBB 17943 @BBBBBBBB 17944 @BBBBBBBB 18000 db2,$E000+225*8:REM 18037 @BBBBBBBB 18038 @BBBBBBBB 18039 @BBBBBBBB 18040 @BBBBBBBB 18041 @BBBBBBBB 18042 @BBBBBBBB 18043 @BBBBBBBB 18044 @BBBBBBBB 18100 db2,$E000+246*8:REM 18137 @....B... 18138 @....B... 18139 @....B... 18140 @....B... 18141 @....B... 18142 @....B... 18143 @....B... 18144 @....B... 18200 db2,$E000+059*8:REM 18237 @........ 18238 @........ 18239 @........ 18240 @........ 18241 @........ 18242 @...BB... 18243 @...BB... 18244 @..BB.... 19999 d4 20000 d1 FRAGE 20010 PRINT" Z[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]K[146]" 20020 PRINT"AC[146] #G[146]"; 20030 PRINT"BW[146] JH[146]"; 20040 PRINT" F[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]![146]" 20050 FORI=1TO2:PRINT"[157]" 20060 PRINT"$P[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]MS$P[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]MS[146]"; 20070 PRINT"X[146] DX[146] D[146]"; 20080 PRINT"%Q[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]VT%Q[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]V[146]";:POKE52983+I*120,148 20090 NEXT:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]" 20100 d4 21000 d1 PUNKTE 21005 L=L-1 21010 P$(15)="[158]15 EUR 1 MILLION" 21020 P$(14)="14 EUR 500.000 " 21030 P$(13)="13 EUR 125.000 " 21040 P$(12)="12 EUR 64.000 " 21050 P$(11)="11 EUR 32.000 " 21060 P$(10)="[158]10 EUR 16.000 " 21065 IF MO=1 THEN P$(10)="10 EUR 16.000 " 21070 P$(9)=" 9 EUR 8.000 " 21080 P$(8)=" 8 EUR 4.000 " 21090 P$(7)=" 7 EUR 2.000 " 21100 P$(6)=" 6 EUR 1.000 " 21110 P$(5)="[158] 5 EUR 500 " 21120 P$(4)=" 4 EUR 300 " 21130 P$(3)=" 3 EUR 200 " 21140 P$(2)=" 2 EUR 100 " 21150 P$(1)=" 1 EUR 50 " 21160 PRINT""; 21170 FORI=15TO1STEP-1 21180 PRINT""LU$"[194]"P$(I) 21190 NEXTI 21200 IF L=0THEN21900 21210 PRINT""; 21220 IFL<15THENFORI=1TO15-L:PRINT:NEXT 21230 FORI=1TOL 21240 PRINT"[159]"LU$"[218]":NEXT 21250 PRINT""; 21260 IFL<15THENFORI=1TO15-L:PRINT:NEXT 21270 PRINT""LU$"[194]"P$(L)"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][218]" 21900 L=L+1 21999 d4 22000 d1 CONFIG 22010 OPEN2,8,2,"CONFIG,S,R" 22020 FORI=1TO15:INPUT#2,FZ(I):NEXT 22030 INPUT#2,FZ:CLOSE2 22040 d4 23000 d1 JOKER 23010 PRINT"X [155][193][195][197][146] E [155][211][214][146]" 23020 PRINT" [155][194][196][198][146] [155][212][215][146]" 23030 PRINT" [155][213][216][146]" 23040 PRINT" 50:50 AUSSTIEG" 23050 PRINT 23060 PRINT"Y [155][199][201][203][146] 23070 [153]" LEFT$MID$(null)WAIT" 23075 [153] 23080 [153]" TELEFON" 23085 [139] MO[178]1 [167] [153]"ONONONONJ LIST(null)(null)(null)CMDCMDCMD(null)(null)(null)WAITCMDCMDCMDCMDCMDCMDZUSATZJ." 23090 [153] 23100 [153]"Z LIST(null)(null)(null)WAIT" 23110 [153]" (null)(null)(null)WAIT" 23115 [153] 23120 [153]" PUBLIKUM _ ZOOM 23200 IFJ1=0THEN23300 23210 PRINT" [205][206] 23220 [153]" (null)(null)" 23300 [139]J3[178]0[167]23350 23310 [153]" (null)(null) 23320 PRINT" [206][205]" 23350 IFJ4=0THEN23400 23360 PRINT" [205][206] " 23370 PRINT"  [206][205] " 23400 IFJ2=0THEN23500 23410 PRINT" [205][206] 23420 [153]" (null)(null)" 23500 d4 24000 d1 F[139]TYF[139]TY 24003 [139]J1[178]1[167] d4 24005 J1[178]1 24010 [129]I[178]1[164]2 24020 X[178][181](4[172][187](1))[170]1 24030 [139]X[178]RA[167]24020 24040 [139]J1(X)[178]1[167]24020 24050 GA$(X)[178]" ":J1(X)[178]1 24053 [130]I 24055 [129]I[178]1[164]2000:[130]I 24060 d3 ANTW[176]TEN 24065 d3 JOKER 24070 d4 25000 d1 PUBLIKUM 25005 [139]J2[178]1[167] d4 25007 J2[178]1 25010 [129]I[178]1[164]4:PK(I)[178]0:[130] 25020 X[178]100[171]L[172]5 25030 Y[178][181](100[172][187](1)) 25040 [139]Y[179]X[167]25100 25050 [139]Y[177][178]X[167]25200 25100 X[178][181](17[171]L)[172]5 25110 PK(RA)[178]X 25115 Y[178][181](2[172][187](1))[170]1:Z[178][181](((100[171]X)[173]1.2)[172][187](1))[170]1:W[178][181](4[172][187](1))[170]1 25116 [139]J1(W)[178]1[167]25115 25117 [139] Y[178]1[167]PK(W)[178]PK(W)[170]Z:X[178]X[170]Z 25120 [129]I[178]1[164]100[171]X 25130 Y[178][181](4[172][187](1))[170]1 25135 [139]J1(Y)[178]1[175][181](10[172][187](1))[179][177]5[167]25130 25137 PK(Y)[178]PK(Y)[170]1 25140 [130]I 25150 [137]25500 25200 W[178]0:Z[178][181](3[172][187](1))[170]1 25210 [139]Z[178]2[167]W[178][181](20[172][187](1))[170]1:Z[178][181](4[172][187](1))[170]1 25215 [139]J1(Z)[178]1[167]25200 25217 PK(Z)[178]PK(Z)[170]W 25220 [139]Z[178]3[167]X[178][181]((17[171]L)[172](4[172][187](1))):[137]25110 25300 [129]I[178]1[164]100[171]W 25310 Y[178][181](4[172][187](1))[170]1 25315 [139]J1(Y)[178]1[175][181](10[172][187](1))[179][177]5[167][137] 25310 25317 PK(Y)[178]PK(Y)[170]1 25320 [130]I 25330 [137]25500 25500 dc1,0,0,0,1 25510 dc2,0,0,0,1 25520 dc3,30,52,0,1 25530 dc4,0,0,0,1 25540 [153]"LOAD LIST(null)(null)(null)WAIT" 25550 [153]" (null)(null)(null)WAITOPEN PUBLIKUMSJOKER 25560 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163] 25570 [153]"DAS PUBLIKUM HAT" 25575 [153]"FOLGENDERMASSEN" 25580 [153]"GEANTWORTET:" 25590 [153]" ANTWORT A:"PK(1)"%" 25600 [153]" ANTWORT B:"PK(2)"%" 25610 [153]" ANTWORT C:"PK(3)"%" 25620 [153]" ANTWORT D:"PK(4)"%" 25630 [153]"'_' DRUECKEN !" 25640 F$[178]LU$[170]"":[153]""F$"LIST>SINSINSINSINSINSINSINSINSINSINSINSINSINSINSINRND" 25650 [129]I[178]1[164]10 25660 [153]F$"ABSABSABSABSABSABSABSABSABS" 25670 [153]F$"LOGSINORSINORSINORSINORSINORSINORSINORSIN*" 25680 [130]I 25685 [129]I[178]1[164]4:[153] d(18[170]I[172]4,1)""PK(I)"CMD%":[130] 25690 [129]I[178]1[164]20 25700 [129]J[178]1[164]4 25710 [139]PK(J)[177]4[167][153] d(19[170]4[172]J,23[171]I)"CLRGETGETGET":PK(J)[178]PK(J)[171]5:[137]25760 25720 [139]PK(J)[178]4[167][153] d(19[170]4[172]J,23[171]I)"CLRINTINTINT":PK(J)[178]PK(J)[171]4:[137]25760 25730 [139]PK(J)[178]3[167][153] d(19[170]4[172]J,23[171]I)"CLRNEWNEWNEW":PK(J)[178]PK(J)[171]3:[137]25760 25740 [139]PK(J)[178]2[167][153] d(19[170]4[172]J,23[171]I)"CLRSGNSGNSGN":PK(J)[178]PK(J)[171]2:[137]25760 25750 [139]PK(J)[178]1[167][153] d(19[170]4[172]J,23[171]I)"CLRFNFNFN":PK(J)[178]PK(J)[171]1:[137]25760 25760 [130]J:[130]I 25770 [153] d(24,24)"A (null) B (null) C (null) DONONONONONON" 25940 [161]AN$:[139]AN$[179][177]"_"[167]25940 25950 [153]"LOAD" 25960 d3 FRAGE 25970 d3 ANTW[176]TEN 25980 d3 PUNKTE 25990 d3 JOKER 25999 d4 26310 db0,49152[170]4[172]64:[143] 26320 @.....BBBBBBBBBBBBBB...... 26322 @.....B.B....B..B..B...... 26323 @.....B....B....B..B...... 26324 @.....B..B....B.B..B...... 26325 @.....BB....B...B..B...... 26326 @.....B...B....BB..B...... 26327 @.....B.B....B..B..B...... 26328 @.....B....B....B..B...... 26329 @.....B..B....B.B..B...... 26330 @.....BB....B...B..B...... 26331 @.....B...B....BB..B...... 26332 @.....B.B....B..B..B...... 26333 @.....B....B....B..B...... 26334 @.....B..B....B.B..B...... 26335 @.....BB....B...B..B...... 26336 @.....B...B....BB..B...... 26337 @.....B.B....BB....B...... 26338 @.....B....BB......B...... 26339 @.....B..BB........B...... 26340 @.....BBB..........B...... 26341 @.....BBBBBBBBBBBBBB...... 26350 d4,4,15,1,0 26360 dc4,0,0,0,1 26999 d4 27000 d1 TELEF[145] 27010 [139]J3[178]1[175]TJ[178]0[167]d4 27015 [139]J4[178]1[175]TJ[178]1[167]d4 27017 [139]TJ[178]1[175]MO[178]0[167]d4 27020 [139]TJ[178]0[167]J3[178]1 27030 [139]TJ[178]1[167]J4[178]1 27040 [139]TJ[178]1[167][137]27500 27070 [153]"LOAD LISTCHR$RIGHT$(null)WAIT " 27080 [153]" LEFT$MID$(null)WAITOPEN TELEFONJOKER 27090 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163] 27095 [139]TJ[178]1[167][137]27500 27100 [153]"SIE KOENNEN NUN:" 27110 [153]"1) JEMANDEN 30 SEKUNDEN LANG FRAGEN" 27120 [153]" (ZEIT LAEUFT NACH DRUECKEN DER 1) 27130 PRINT"2) DEN TELEFONKANDIDAT VOM COMPUTER" 27140 PRINT" SIMULIEREN LASSEN" 27150 PRINT"WAEHLEN SIE 1 ODER 2" 27160 GETAN$:IFAN$<>"1"ANDAN$<>"2"THEN27160 27170 IFAN$="1"THEN27200 27180 GOTO27500 27200 PRINT"[147]" 27210 d3 FRAGE 27220 d3 ANTWORT 27230 TI$="000000" 27240 PRINT" SIE HABEN NOCH 27250 [153]""LU$""30[171][197]([201](TI$,2))"CMD WAIT" 27260 [153]" SEKUNDEN ZUM BEFRAGEN" 27270 [139]TI$[179][177]"000030"[167]27240 27280 [153]"LOADSCHLUSS !" 27300 [137]27900 27500 X[178]100[171]L[172]4 27501 [139]TJ[178]1[167] [137] 27510 27502 [153]"LOAD LISTCHR$RIGHT$(null)WAIT " 27503 [153]" LEFT$MID$(null)WAITOPEN TELEFONJOKER 27504 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163] 27505 [153]"SIE RUFEN NUN JEMANDEN AN..." 27509 [139]TJ[178]0[167] [137] 27518 27510 X[178]100[171]L[172].4 27512 [153]"LOAD LIST(null)(null)(null)WAIT " 27513 [153]" (null)(null)(null)WAITOPEN ZUSATZJOKER 27514 PRINT" [163][163][163][163][163][163][163][163][163][163][163] 27515 [153]"SIE SUCHEN EINEN PUBLIKUMSKANDIDAT..." 27518 [129]I[178]1[164]2000:[130] 27519 Y[178][181](100[172][187](1)) 27520 [139]Y[179]X[167]27600 27530 [139]Y[177][178]X[167]27700 27600 X[178]((15[171]L)[173]2)[170]8[170][181](4[172][187](1)) 27602 [139]TJ[178]1[167]X[178]X[172]1.2 27605 Y[178][181](2[172][187](1)):[139]Y[178]1[167]X[178]X[172]1.5 27610 X[178][181](X):X[178]X[172]5:[139]X[177]100[167]X[178]100 27615 Y[178]X[171]10 27617 [139]TJ[178]1[167]Y[178]Y[170]5 27620 Z[178][181](100[172][187](1))[170]1 27625 [139]Z[179]Y[167]TK[178]RA 27630 [139]Z[177][178]Y[167]TK[178][181](4[172][187](1))[170]1 27632 [139]J1(TK)[179][177]0[167]27620 27635 [139]TJ[178]0[167][153]"IHR TELEFONKANDIDAT TIPPT AUF" 27637 [139]TJ[178]1[167][153]"IHR PUBLIKUMSKANDIDAT TIPPT AUF" 27640 A$[178][201](GA$(TK),[195](GA$(TK))[171]4) 27645 [153]"OPEN";A$".":[153] 27650 [153]"ER MEINT, ER SEI SICH"X"CMD-PROZENTIG" 27655 [153]"SICHER. 27660 GOTO27900 27700 IFTJ=0THENPRINT"IHR TELEFONKANDIDAT HAT UEBERHAUPT" 27705 IFTJ=1THENPRINT"ES GAB LEIDER KEINEN IM PUBLIKUM DER" 27710 IFTJ=0THENPRINT"KEINE AHNUNG... (SORRY !)" 27715 IFTJ=1THENPRINT"ANTWORTEN WOLLTE... (SORRY !)" 27900 PRINT"DRUECKEN SIE '_' ZUM WEITERSPIELEN !" 27901 GETAN$:IFAN$<>"_"THEN27901 27910 PRINT"[147]":IFTJ=0THENA$="Y" 27915 IFTJ=1THENA$="J" 27920 d3 FRAGE 27930 d3 ANTWORTEN 27940 d3 PUNKTE 27950 d3 JOKER 27960 d4